﻿Imports BU
Imports DAL

Public Class fBusinessUnits
    

    ' ''' <summary>
    ' ''' PROCEDURE - Liên kết danh sách BU vào Grid
    ' ''' </summary>
    'Private Sub BindingListOfBusinessUnitsToGrid()

    '    Dim obuBusinessUnit As New buBusinessUnits

    '    grdBUs.DataSource = obuBusinessUnit.DataTableOfBusinessUnits()

    '    Call BindingGridSourceWithControls()
    'End Sub


   


    ' ''' <summary>
    ' ''' PROCEDURE - Ánh xạ dữ liệu đối tượng Business Unit lên các Controls
    ' ''' </summary>
    ' ''' <param name="oBU">Đối tượng BU chứa dữ liệu cần ánh xạ</param>
    'Private Sub ReflectDataToControls(ByVal oBU As RockwellAutomationBU)

    '    tbxPF.Text = oBU.PF
    '    tbxSubBU.Text = oBU.SubBU
    '    tbxName.Text = oBU.Name
    '    cbxBU.Text = oBU.BU

    '    If Not String.IsNullOrWhiteSpace(oBU.Note) Then
    '        tbxNote.Text = oBU.Note
    '    Else
    '        tbxNote.Text = String.Empty
    '    End If

    'End Sub


    ' ''' <summary>
    ' ''' FUNCTION - Ánh xạ dữ liệu từ các Controls để tạo thành một đối tượng BU
    ' ''' </summary>
    'Private Function ReflectControlsToBU() As RockwellAutomationBU

    '    Dim oBU As New RockwellAutomationBU

    '    oBU.PF = tbxPF.Text
    '    oBU.SubBU = tbxSubBU.Text
    '    oBU.Name = tbxName.Text
    '    oBU.BU = cbxBU.Text

    '    If Not String.IsNullOrWhiteSpace(tbxNote.Text) Then
    '        oBU.Note = tbxNote.Text
    '    Else
    '        oBU.Note = String.Empty
    '    End If

    '    oBU.CreatedDate = DateTime.Now
    '    oBU.LastUpdate = DateTime.Now

    '    Return oBU

    'End Function


    ''' <summary>
    ''' EVENT - fBusinessUnits_Load
    ''' </summary>
    Private Sub fBusinessUnits_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        grdBUs.RetrieveListOfBusinessUnits()
        
    End Sub


    ' ''' <summary>
    ' ''' PROCEDURE - Liên kết Grid Source với các Controls
    ' ''' </summary>
    'Private Sub BindingGridSourceWithControls()

    '    'Thoát nếu Grid không có dữ liệu
    '    If grdBUs.DataSource Is Nothing Then
    '        Exit Sub
    '    End If

    '    'Liên kết Grid PF với tbxPF
    '    tbxPF.DataBindings.Clear()
    '    tbxPF.DataBindings.Add("Text", grdBUs.DataSource, "PF")

    '    'Liên kết Grid PF với tbxSubBU
    '    tbxSubBU.DataBindings.Clear()
    '    tbxSubBU.DataBindings.Add("Text", grdBUs.DataSource, "SubBU")

    '    'Liên kết Grid PF với tbxName
    '    tbxName.DataBindings.Clear()
    '    tbxName.DataBindings.Add("Text", grdBUs.DataSource, "Name")

    '    'Liên kết Grid PF với cbxBU
    '    cbxBU.DataBindings.Clear()
    '    cbxBU.DataBindings.Add("Text", grdBUs.DataSource, "BU")

    '    'Liên kết Grid PF với tbxNote
    '    tbxNote.DataBindings.Clear()
    '    tbxNote.DataBindings.Add("Text", grdBUs.DataSource, "Note")
    'End Sub

  
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        If grdBUs.SaveChanges() Then
            MessageBox.Show("Lưu thành công")
        Else
            MessageBox.Show("Lưu thất bại")
        End If
    End Sub
End Class